home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / machack / Hacks97 / KlingonBGApp.sit / Klingon BG App / Scripts / Klingon Change Freq.asc next >
Text File  |  1997-06-28  |  577b  |  24 lines
  1. property myTalkInterval : 15
  2.  
  3. on ClockTalk()
  4.     AskForSpeakingInterval()
  5.     tell application "Klingon BG App"
  6.         «event KFRQKFRQ» myTalkInterval
  7.     end tell
  8. end ClockTalk
  9.  
  10. on AskForSpeakingInterval()
  11.     -- How often do we speak
  12.     try
  13.         set x to display dialog "How often should I talk (minutes)?" default answer 15
  14.         set myTalkInterval to (text returned of x) as integer
  15.         if myTalkInterval is less than 1 then
  16.             display dialog "I have to speak at least once a minute!!"
  17.             set myTalkInterval to 1
  18.         end if
  19.     on error x
  20.         display dialog x
  21.     end try
  22. end AskForSpeakingInterval
  23.  
  24. ClockTalk()